home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Reference / the MacTech Archives / MacTech Vol 03-1987 / MacTech Vol 03-1987.rsrc / PICT_524.png < prev    next >
Portable Network Graphic  |  1996-04-25  |  3.4 KB  |  553x336  |  1-bit (2 colors)
   ocr: File Edit Command transcript >>> (load "timeit.sch") timeit #t >>> detine (foo) vector->list make-vector 10000 a))) ROD:article.ti foo (define Kunequall X Tists) >>> (begin (set! x0 (foo)) (cond ((null? Tists) #f) (set! x1 (foo)) (equal? X (car TIsts)) (set! x2 (foo)) (apply unequall (cons X (cdr (set! x3 (foo)) (else (car ISts)))) (set! x4 (foo)) (set! x5 (foo)) define unequaiz X Tists) (set! x6 (foo) (let* ((ans #f) #t) task-count length lists)) #t (tasks (map (lambda (y) >>> (timeit Kunequall x0 x1 x2 x3 'a> x4 x5 . x6)) start-task lambda ( Timings for unequall x0 x1 x2 x3 'ax4x5x6) (if (no ...